home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 4 / FM Towns Free Software Collection 4 - Disc 1.iso / data / nifhand / hp.aut < prev    next >
Text File  |  1991-10-18  |  6KB  |  319 lines
  1. ;巡回するとき                自分のHPのﾒﾝﾃﾅﾝｽ
  2. ;  $60:HPのID (空欄:自分のもの)          $65:保守ﾊﾟｽﾜｰﾄﾞ (8字以内)
  3. ;  $61:HPのﾊﾟｽﾜｰﾄﾞ (8字以内)          $66:ｵｰﾌﾟﾆﾝｸﾞﾒｯｾｰｼﾞ (30字以内)
  4. ;  $62:発言の時の題名              $67:ﾕｰｻﾞﾊﾟｽﾜｰﾄﾞの変更
  5. ;  $63:ﾌｧｲﾙ名                  $68:保守ﾊﾟｽﾜｰﾄﾞの変更
  6. ;  $64:巡回日指定
  7.  
  8. IF (($64=="毎" || $64=="") || $64==$940) || ($64==$941 || $64==$942)
  9. ELSE
  10.  GOTO E
  11. ENDIF
  12.  
  13. IF ($1000=="QUICK" || $1000=="quick") || ($1000=="Q" || $1000=="q")
  14.  $1="Q"
  15. ENDIF
  16. IF ($1=="QUICK" || $1=="quick") || ($1=="Q" || $1=="q")
  17.  IF ($60!="" && $61!="") && ($62=="" || $63=="")
  18.   CALL HP
  19.   CALL DOWN
  20.  ELSEIF ($60!="" && $61!="") && ($62!="" && $63!="")
  21.   CALL HP
  22.   CALL SAY
  23.   CALL DOWN
  24.  ELSE
  25.   ECHO "HP.AUT：フルオートモードでは全てを設定しておく必要があります\r"
  26.  ENDIF
  27.  GOTO E
  28. ENDIF
  29.  
  30. LABEL MAIN
  31. ECHO "\r^Gこれよりホームパーティにまいります\r"
  32. ECHO "\r1:ﾀﾞｳﾝのみ  2:ｱｯﾌﾟ･ﾀﾞｳﾝ両方  0:ﾒﾝﾃﾅﾝｽ  E:中止 (ﾘﾀｰﾝｷｰ不要) ＞\r"
  33. LOOKKEY 60
  34. CASE "1"
  35.   $62=$63=$65=$66=$67=$68="******"
  36.   $2=""
  37.   CALL H
  38.   CALL HP
  39.   CALL DOWN
  40. CASE "2"
  41.   $65=$66=$67=$68="******"
  42.   $2=$7
  43.    CALL H
  44.    CALL HP
  45.    CALL SAY
  46.    CALL DOWN
  47. CASE "0"
  48.   $2=""
  49.   CALL H
  50.   GOTO MNT
  51. CASE "E"
  52. CASE "e"
  53. CASE/TIMEOUT
  54. FREE
  55.  
  56. LABEL E
  57. $1=$60=$61=$62=$63=$64=$65=$66=$67=$68=""
  58. END
  59.  
  60. PROC H
  61. LABEL H1
  62. IF $60==""
  63.  $60="自分のもの"
  64. ENDIF
  65. ECHO "\r設定は以下のようになっています\r"
  66. ECHO "\r  1 ＨＰのＩＤ       ：$60"
  67. ECHO "\r  2 パスワード       ：$61"
  68. ECHO "\r  3 題名 (ﾊﾝﾄﾞﾙ)     ：$62  $2"
  69. ECHO "\r  4 送信ファイル名   ：$63"
  70. ECHO "\r  5 保守ﾊﾟｽﾜｰﾄﾞ      ：$65"
  71. ECHO "\r  6 ｵｰﾌﾟﾆﾝｸﾞﾒｯｾｰｼﾞ   ：$66"
  72. ECHO "\r  7 ﾕｰｻﾞﾊﾟｽﾜｰﾄﾞの変更：$67"
  73. ECHO "\r  8 保守ﾊﾟｽﾜｰﾄﾞの変更：$68\r"
  74. ECHO "\r^G以上でよろしいですか？ (Y/N) (E:中止) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  75.  
  76. LOOKKEY 60
  77.  CASE "Y"
  78.   RETURN
  79.  CASE "y"
  80.   RETURN
  81.  CASE "N"
  82.  CASE "n"
  83.  CASE "E"
  84.   END
  85.  CASE "e"
  86.   END
  87.  CASE/TIMEOUT
  88.   END
  89. FREE
  90.  
  91. ECHO "\r^G訂正するものを番号で選んで下さい (1～8) (ﾘﾀｰﾝｷｰ不要) ＞\r"
  92. LOOKKEY 60
  93. CASE "1"
  94.   ECHO "\r正しいＩＤを入力してください\r\r\r"
  95.   INPUT $60
  96. CASE "2"
  97.   ECHO "\r正しいパスワードを入力してください\r\r\r"
  98.   INPUT $61
  99. CASE "3"
  100.   ECHO "\r正しい題名を入力してください\r\r\r"
  101.   INPUT $62
  102. CASE "4"
  103.   ECHO "\r正しい送信ファイル名を入力してください\r\r\r"
  104.   INPUT $63
  105. CASE "5"
  106.   ECHO "\r正しい保守パスワードを入力してください\r\r\r"
  107.   INPUT $65
  108. CASE "6"
  109.   ECHO "\r正しいオープニングメッセージを入力してください\r\r\r"
  110.   INPUT $66
  111. CASE "7"
  112.   ECHO "\r新しいユーザパスワード入力してください\r\r\r"
  113.   INPUT $67
  114. CASE "8"
  115.   ECHO "\r新しい保守パスワード入力してください\r\r\r"
  116.   INPUT $68
  117. CASE/TIMEOUT
  118.   END
  119. FREE
  120. GOTO H1
  121. ENDPROC
  122.  
  123. PROC HP
  124. SEND "GO HP\r"
  125. WAIT "^J＞"
  126. SEND "1\r",1
  127. WAIT "^JID (改行のみ：自分のHP)"
  128. WAIT "^J："
  129. IF $60=="自分のもの"
  130.  $60=""
  131. ENDIF
  132. SEND "$60\r",1
  133. LOOK
  134. CASE "該当する利用者の"
  135.   WAIT "^J＞"
  136.   ECHO "ちょっとぉ、どうなってんのよぉ\r"
  137.   END
  138. CASE "^JあなたはまだHome Partyを"
  139.   WAIT "^J："
  140.   ECHO "^G メンテナンスを選択してくんなくちゃ～ ＞"
  141.   SEND "N\r",1
  142.   WAIT "^J＞"
  143.   END
  144. CASE "^Jパスワード"
  145.   WAIT "^J："
  146.   SEND "$61\r",1
  147.   WAIT "^JHP>"
  148. CASE "^JHP>"
  149. FREE
  150. SEND "SET PAGE OFF\r",1
  151. WAIT "^JHP>"
  152. IF $60==""
  153.  $60="MYHP"
  154. ENDIF
  155. ENDPROC
  156.  
  157. PROC SAY
  158. SEND "COM\r",1
  159. WAIT "^Jハンドルネームと"
  160. WAIT "^J："
  161. SEND "$62  $7\r",1
  162. WAIT "^J確認"
  163. WAIT "^J："
  164. SEND "1\r",1
  165. WAIT "^J本文の入力"
  166. WAIT "\r"
  167. CMD U "$63"
  168. WAIT "^J修正 (1:修正"
  169. WAIT "^J："
  170. SEND "2\r",1
  171. WAIT "^J登録 (1:登録"
  172. WAIT "^J："
  173. SEND "1\r",1
  174. WAIT "^JHP>"
  175. ENDPROC
  176.  
  177. PROC DOWN
  178. CMD D "$900:\\HP\\$60.$944"
  179. SEND "REA NEW\r",1
  180. WAIT "^JHP>"
  181. CMD D
  182. $1=""
  183. ENDPROC
  184.  
  185. LABEL MNT
  186. ECHO "\r 1:新規開設   2:ｵｰﾌﾟﾆﾝｸﾞﾒｯｾｰｼﾞの設定   3:ﾕｰｻﾞﾊﾟｽﾜｰﾄﾞの変更"
  187. ECHO "\r 4:保守ﾊﾟｽﾜｰﾄﾞの変更   5:廃止   E:終了  (ﾘﾀｰﾝｷｰ不要) ＞^G"
  188. LOOKKEY 60
  189.  CASE "1"
  190.   GOTO OPENHP
  191.  CASE "2"
  192.   GOTO OPMSG
  193.  CASE "3"
  194.   GOTO USRPW
  195.  CASE "4"
  196.   GOTO MNTPW
  197.  CASE "5"
  198.   GOTO CAN
  199.  CASE "E"
  200.  CASE "e"
  201.  CASE/TIMEOUT
  202. FREE
  203. GOTO E
  204.  
  205. LABEL OPENHP
  206. SEND "GO HP\r",1
  207. WAIT "^J＞"
  208. WAIT "^JID (改行のみ：自分"
  209. WAIT "^J："
  210. SEND "\r",1
  211. WAIT "^JあなたはまだHome Partyを"
  212. WAIT "^J："
  213. SEND "Y\r",1
  214. SEND "^J利用者パスワードの"
  215. WAIT "^J："
  216. SEND "$61\r",1
  217. WAIT "^Jパスワードの再入力"
  218. WAIT "^J："
  219. SEND "$61\r",1
  220. WAIT "^J保守パスワードの"
  221. WAIT "^J："
  222. SEND "$65\r",1
  223. WAIT "^Jパスワードの再入力"
  224. WAIT "^J："
  225. SEND "$65\r",1
  226. WAIT "^J登録 (1:登録する"
  227. WAIT "^J："
  228. SEND "1\r",1
  229. WAIT "^J－Home Party設置完了"
  230. WAIT "^JHP>"
  231. GOTO MAIN
  232.  
  233. LABEL OPMSG
  234. SEND "GO HP\r",1
  235. WAIT "^J＞"
  236. WAIT "^JID (改行のみ：自分"
  237. WAIT "^J："
  238. SEND "\r",1
  239. SEND "SETUP\r",1
  240. WAIT "^Jパスワード"
  241. WAIT "^J："
  242. SEND "$65\r",1
  243. WAIT "^J設定 (1:オープニングメッセージ"
  244. WAIT "^J＞"
  245. SEND "1\r"
  246. WAIT "^Jオープニングメッセージ"
  247. WAIT "^J："
  248. SEND "$66\r",1
  249. WAIT "^J確認"
  250. WAIT "^J："
  251. SEND "1\r",1
  252. WAIT "^J＞"
  253. GOTO MAIN
  254.  
  255. LABEL USRPW
  256. SEND "GO HP\r",1
  257. WAIT "^J＞"
  258. WAIT "^JID (改行のみ：自分"
  259. WAIT "^J："
  260. SEND "\r",1
  261. SEND "SETUP\r",1
  262. WAIT "^Jパスワード"
  263. WAIT "^J："
  264. SEND "$65\r",1
  265. WAIT "^J設定 (1:オープニングメッセージ"
  266. WAIT "^J＞"
  267. SEND "2\r",1
  268. WAIT "^J現パスワードの入力"
  269. WAIT "^J："
  270. SEND "$61\r",1
  271. WAIT "^J利用者パスワードの設定"
  272. WAIT "^J："
  273. SEND "$67\r",1
  274. WAIT "^Jパスワードの再入力"
  275. WAIT "^J："
  276. SEND "$67\r",1
  277. WAIT "^J＞"
  278. GOTO MAIN
  279.  
  280. LABEL MNTPW
  281. SEND "GO HP\r",1
  282. WAIT "^J＞"
  283. WAIT "^JID (改行のみ：自分"
  284. WAIT "^J："
  285. SEND "\r",1
  286. SEND "SETUP\r",1
  287. WAIT "^Jパスワード"
  288. WAIT "^J："
  289. SEND "$65\r",1
  290. WAIT "^J設定 (1:オープニングメッセージ"
  291. WAIT "^J＞"
  292. SEND "3\r",1
  293. WAIT "^J現パスワードの入力"
  294. WAIT "^J："
  295. SEND "$65\r",1
  296. WAIT "^J保守パスワードの設定"
  297. WAIT "^J："
  298. SEND "$68\r",1
  299. WAIT "^Jパスワードの再入力"
  300. WAIT "^J："
  301. SEND "$68\r",1
  302. WAIT "^J＞"
  303. GOTO MAIN
  304.  
  305. LABEL CAN
  306. SEND "GO HP\r",1
  307. WAIT "^J＞"
  308. WAIT "^JID (改行のみ：自分"
  309. WAIT "^J："
  310. SEND "\r",1
  311. WAIT "^JHP>"
  312. SEND "CAN\r",1
  313. WAIT "^JHome Partyを廃止します"
  314. WAIT "^J："
  315. SEND "Y\r",1
  316. WAIT "^J＞"
  317. GOTO MAIN
  318.  
  319.